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AML Algol 60 CP/M System 


ALGOL 60 VERSION 4.8C RELEASE NOTE 


CP/M Version 2 


When used with CP/M version 2 the Algol system will accept disk drive 
names extending from A: to P: 


ASSEMBLY CODE ROUTINES 


The program CODE.ALG and CODE.ASC is an aid to users who wish to add 
their own code routines to the runtime system. The program produces an 
& output file which contains a reconstruction of the INPUT, OUTPUT, IOC and 
ERROR tables described in the manual. This file forms the basis of an 
assembly code program to which users may edit in their routines. Parts 
mot required may be removed as desired. The resulting program should 
then be assembled and overlaid onto the runtime system using DDT, the 
resulting code being SAVEd as a new runtime system. It is important that 
the CODE program be run using the version of the runtime system to which 


the code routines are to be linked else the tables produced may be. 
incompatible. 


Another example program supplied is QSORT, the sorting proceedure. 
described in the manual. 
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RML Algol 60 - P/M Systen 


LONG INTEGER ALGOL 


Arun-L is a version of the RML Z80 Algol system in which real variables 
are represented not in the normal mantissa/exponent forn but rather as 32 
bit 2’s complement integers. This runtime system is useful for those 
applications where greater precision is desirable but without the need to 
extend the number range to the extent allowed by the floating point 
representation, e.g. business programs. The number range allowed is from 
(2°31)-1 to -(2°31), (about +2.15*10°9). The compiler itself remains 
unchanged. Variables declared as integers will still be represented as 
16 bit 2°s complement numbers. This document outlines the dirferences 
from the Algol system described in the manual. 


STANDARD FUNCTIONS 


The following functions have been removed: 
sin, cos, sqrt, arctan, ln, exp 


The function entier exists but is equivalent to a real to integer 
assigument. For example, the statements 


L:=entier(x); 
L:=x; 


have the same effect. 


LIBRARY PROCEDURES 


The standard library file “ALIB.ALG’ can be used aren Arun-L with the. 
following exception 


random has been removed. 
Two additional library procedures can be found in file ‘ARUNL.ALG’ 


powl0(n) 
lrem(t,b) 


DIVISION 


Real division (/) always truncates the result towards zero in the same 
way as with integer division (%). A procedure has been added to the 


library (lrem) to give the remainder term lost by the division. 


zs=lrem(t,b); 


gives the remainder lost by the division 


4 


u:=t/b; 
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CP/M Systen 


The result of lrem will always have the same sign as the quotient (or 
zero) in the same way as the MOD operator does for the integer case e.g. 


t b t/b = Lrem(t,b) 
35 8 4 3 
-35 8 4 -3 
35 “8 ~4 =3.. 
=35 ~8 4 3 
INPUT/OUTPUT 


The decime. inp. 
for the addicior 


are 


poe! O(n, , 


where ‘n’ i: -nall integer causes all subsequcat calls to read to be 


scaled by acter of 10°n. The digit string representing the number 
(including : sonal and exponent fields) is read and the result scaled 
by 10*n. fractional part is then disregarded before returning the 
result. Fo: tiple with n=2, on reading the number 123.4567 the result 
would be 1: On output the converse scaling is performed. The value 
to be outpu’ airst converted internally into a digit string; the 
decimal po. .s then effectively shifted left by ’n’ digits before 
printing th ilt im the required format. The meaning of the format 
parameters unchanged. This scaling on output applies only to 
rvrite; the jer print routine (write) is unchanged. 


RUNTIME ERRO: ESSAGES 


The followt:: changes to the runtime error numbers given in the sanual 
have been m.\c. : 


8 4 Rea:  -: integer) division by zero or lrem(t,0). 

9 Ovex: im real multiply. 

16 Over” in real addition. 

17 Over: . in real subtraction. 

18 Tiles. standard function called e.g. sin, cos etc.- 

19 Larges: segative number -(2°31) with no corresponding positive 
Teprescntation. This error can occur from abs, *, /, rem, rwrite 
etc, 
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STRING HANDLING 


The following string handling routines were written by Clare Tagg of the 


London School of Economics. The source code can be found in the file 
STRING. ALG 


- General Philosophy 


In RML Algol variable strings are stored in BYTE ARRAYs whereas literal 
strings are passed as STRINGs. This means that routines which may have 
variable or literal strings as arguments must have addresses as 
parameters. In the Algol library supplied in ALIB.ALG there are four 
such functions: atext, tlen, smatch and blmove as well as the literal 
string specific function text. As these functions require the frequent 
use of the functions lecation or sloe to find the relevant address, they 
are rather unwieldy to use. In designing new string functions it was 
decided to continue this distinction between variable and literal strings 
and have special versions for routines commonly having literal 
arguments. These routines are distinguishable by ending in an ‘s’ and in 
general the rightmost string parameter is of type STRING. 


In the following descriptions 'b is a single dimension BYTE ARRAY 


containing a string (ie. terminated by 0), i is an index in the byte 
array which indicates the start of the string and s is a literal string. 
Most of the routines use some of the string handling library routines 
(ie. location, tlen, smatch, sloc, blmove, atext). The routines provided 
are:- 


BOOLEAN PROCEDURE seq(bl,11,b2,12); 


Gives equality of two strings starting at bl[1l] and b2{12]. 


BOOLEAN PROCEDURE seqs(b,1,8); 


Gives equality of variable and literal string. 


BOOLEAN PROCEDURE subeq(bl,i1,b2,12,len); 


Gives equality of substrings starting at S1[11] and b2[12] of 
length len. If len is negative it defaults to the. length of the 
string starting at b2[i2]. 


BOOLEAN PROCEDURE subeqs(b,i,s); 


Gives equality of substring starting at b[{i] and literal string 
s of length of s. 
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INTEGER PROCEDURE sfind(bl,i1,b2,12); 


Finds start of string starting at b2[i2] in string starting 


at 
bl{il]. Result is index in bl or -l1 if not found. 


INTEGER PROCEDURE sfinds(b,i,s); 
Same as sfind except 2nd operand is a literal string. 


PROCEDURE scopy(bl,il,b2,i2,len); 


Copies string from b2 into bl starting at b2[i2] for len 


characters starting at bl[{il]. If len is negative entire string’ 
is copied. 


PROCEDURE scopys(b,1,s); 


Same as scopy but 2nd operand is a literal. 


PROCEDURE stext(dev,b,i,len); 


Outputs string to device dev starting at bf{i] 


for len 
characters or whole string if len is negative. 


PROCEDURE sread(dev,b,i,len); 


Reads a string from device dew into b starting at i. Reads len 


characters or until cr is found. Om return len is set to the 
length of the string which is also terminated with a zero. 


PROCEDURE sinit(b,i,ch,len); 


Initialises integer or byte array b to character ch starting at 
i for len elements. 
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; ALGOL 60 RELEASE NOTE 
Compiler Version4.1T, Runtime System 4.7T 
TSR-80 MEMORY MAP 
The TRS-80 RAM starts at location 4200H instead of the normal zero for 
CP/M computers. The absolute addresses described’ on page 69 of the 
manual should be offset by this amount. Users adding assembly code to . 
the runtime system are strongly advised to make use of the skeleton 
generated by running the program CODE described below. 
TRS-80 CHARACTER SET . 
The RML Algol 60 compiler accepts the full ASCII character set described 
in the manual. Mote that on the TRS-80 VDU a number of characters do not 
. appear as their ASCII representation e.g. 
w [ w appears as " »" 
if } w W@& as 
it] { Ty i) + iT 
, "} rt) % =>! 


None of these characters (or “) can be input via the TRS-80 keyboard. 
The compiler has been modified to accept the following alternative 
synbols. 

"<<" as alternative to "{" 

">>" a | e 


"w@n wan 


For example the statements 
AX<ID>:=B@3; CRTL C:=&@C; 
are the same as 
A{I}:=b°3; CTRL C:=6°C; 


The program TANCON on the distribution disk can be used to convert 
programs written using the above representations into the standard form. 


Switch options attached to filenames may be enclosed by °<’ and ‘>’ 
instead of °({’ and ’]’ (see page 39), for example: : 


DEV: =F INDINPUT("DATA. DAT<B>") ; 
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TRS80 GRAPHICS 


The graphics routines described in the manual as "for the RML380Z only" 
(see pages 43,44,71 and 73) are available with the following differences: 


1. The origin is at the bottom left hand corner, not 4 lines up. 


2. For CHPOS the limits are 0<x<64 and O<y<16. 
3. For POINT and LINE the limits are 0<x<128 and 0<y<48 


4. The EMT call is not available. 


5. In POINT and LINE there is no difference in brightness between z=) 
and 2=2,. 


6. The x resolution is about twice that of the y resolution instead of 
being equal. ; 


For programs using graphics it is often convenient to obtain characters 
from the keyboard without echo. This may be achieved with the call 
310S(3,0). (See page 36). Note also that all the control codes listed in 
C/1 of the LEVEL II handbook work when sent to the VDU via stream 1. For 
example, CHOUT(1,28) sends the cursor home to the top left corner. , The 
source of the graphics routines is in ARUNG.ALG. 


. 


The distribution disc contains several simple examples of the use of 
graphics (TEST1 to TESTS). Some of these require a key to be struck 
before moving on to the next display. 


The program DUCK is a game of "duck shooting"; respond with an angle in 
the range of about 45 to 90. 


ASSEMBLY CODE ROUTINES 


The program CCDE.ALG and CODE.ASC is an aid to users who wish to add 
their own - code routines to the runtime system. The program produces an 
output file which contains a reconstruction of the INPUT, OUTPUT, IOC and 
ERROR tables described in the manual. This file forms the basis of an 
assembly code program to which users may edit in their routines. Parts 
not required may be removed as desired. The resulting program should 
then be assembled and overlaid onto the runtime system using DDT, the 
resulting code being SAVEd as a new runtime system. [It is important thac 
the CODE program be run using the version of the runtime system to which - 


the code routines are to be linked else the tables produced may be 
incompatible. 


e 
Other example programs supplied are QSORT, the sorting procedure 
described in the manual, and STARTREK, the well known gane. 
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